home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_29822_booksmenuCSTR < prev    next >
Text File  |  1994-09-21  |  4KB  |  128 lines
  1. global LgST,annST,firstopen,gTTKPresent,gTToolsInstalled,gTTKName,mST,mS,gCurLang
  2. if ssn()=gTTKName then put getstr("CurrentLanguage") into gCurLang
  3. LS
  4. put tStr("LibMsg",40) into bn
  5. put "false" into newbookmenu
  6. set cursor to "busy"
  7. put "" into hadBooks
  8. put "" into hadBooksMsg
  9. put "" into hadBooksCheck
  10. put "" into hadBooksState
  11. put "" into hadBooksChar
  12. if there is a menu bn then
  13. put menu bn into hadBooks
  14. repeat with x = 1 to the number of lines in hadBooks
  15. set cursor to "busy"
  16. put the menumsg of menuitem x of menu bn into line x of hadBooksMsg
  17. put the checkmark of menuitem x of menu bn into line x of hadBooksCheck
  18. set cursor to "busy"
  19. put the enabled of menuitem x of menu bn into line x of hadBooksState
  20. put the commandchar of menuitem x of menu bn into line x of hadBooksChar
  21. end repeat
  22. else
  23. put get1str("SavedBookMenuState") into temp
  24. put "true" into newbookmenu
  25. if temp¡"" then
  26. put the itemdelimiter into id
  27. set the itemdelimiter to "■"
  28. put item 1 of temp into hadBooks
  29. put item 2 of temp into hadBooksMsg
  30. put item 3 of temp into hadBooksCheck
  31. put item 4 of temp into hadBooksState
  32. put item 5 of temp into hadBooksChar
  33. set the itemdelimiter to id
  34. end if
  35. end if
  36. reset menubar
  37. if gTTKPresent = "true" and gTToolsInstalled = "" then
  38. put "true" into gTToolsInstalled
  39. end if
  40. put "" into om
  41. if gTToolsInstalled ¡ "true" then
  42. --put "go,font,style,tools,objects" into om
  43. put HCMI(1)&"," after om
  44. -- if the optionkey = "up" then
  45. -- put HCMI(2)&"," after om
  46. -- put HCMI(3)&"," after om
  47. -- end if
  48. put HCMI(4)&"," after om
  49. put HCMI(5) after om   
  50. end if
  51. set cursor to "busy"
  52. repeat with a = 1 to the number of items in om
  53. if there is a menu (item a of om) then delete menu (item a of om)
  54. end repeat
  55. if gTToolsInstalled ¡ "true" then
  56. --menu 3 is the edit menu.  we'll assume it is present
  57. repeat
  58. if there is a menuitem 7 of menu 3 then
  59. delete menuitem 7 of menu 3
  60. else
  61. exit repeat
  62. end if
  63. end repeat
  64. else
  65. if there is a menuitem HCMI(6) of menu 3 then delete menuitem HCMI(6) of menu 3
  66. if there is a menuitem HCMI(7) of menu 3 then delete menuitem HCMI(7) of menu 3
  67. if there is a menuitem HCMI(8) of menu 3 then delete menuitem HCMI(8) of menu 3
  68. end if
  69. set cursor to "busy"
  70. create menu bn
  71. if newbookmenu="true" or hadBooks = "" then
  72. put BMItems() into menu bn with menuMsg BMMsgs()
  73. put "" into firstopen
  74.  
  75. --Tool Palette,menubar,large print,annotations,paper clips,progress gauge,Notebook,find╔,help
  76. set commandchar of menuitem tStr("LibMsg",41) of menu bn to "T"
  77. set commandchar of menuitem tStr("LibMsg",42) of menu bn to " "
  78. set commandchar of menuitem tStr("LibMsg",45) of menu bn to "L"
  79. set commandchar of menuitem tStr("LibMsg",46) of menu bn to "A"
  80. set commandchar of menuitem tStr("LibMsg",44) of menu bn to "K"
  81. set commandchar of menuitem tStr("LibMsg",43) of menu bn to "G"
  82. set commandchar of menuitem tStr("LibMsg",47) of menu bn to "N"
  83. set commandchar of menuitem tStr("LibMsg",49) of menu bn to "F"
  84. set commandchar of menuitem tStr("LibMsg",48) of menu bn to "?"
  85.  
  86. if hadBooksCheck¡"" then
  87. repeat with a = 1 to 6
  88. set the checkmark of menuitem a of menu bn to (line a of hadBooksCheck)
  89. end repeat
  90. end if
  91. set menuMsg of menuitem tStr("LibMsg",47) of menu bn to doNewNoteBook
  92. set cursor to "busy"
  93. if gTTKPresent = "true" then
  94. put tStr("LibMsg",21) into mn --NAME OF TOOLKIT MENU item in books menu
  95. put "-,"&mn after menu bn
  96. set the menuMsg of menuitem mn of menu bn to eTTools
  97. set the commandchar of menuitem mn of menu bn to "E"
  98. if gTToolsInstalled = "true" then
  99. if not StackInUse(gTTKName) then
  100. start using stack getstackpath()&gTTKName
  101. end if
  102. set the checkmark of menuitem mn of menu bn to true
  103. create menu tStr("EBTMsg",126)
  104. MakeToolMenu
  105. show menubar
  106. put "true" into mS
  107. set the checkmark of menuitem tStr("LibMsg",42) of menu bn to true
  108. put "true" into mST
  109. end if
  110. else
  111. put "false" into gTToolsInstalled
  112. end if
  113. else
  114. if hadBooks ¡ "" then
  115. put line 1 to 6 of tStr("LibMsg",63) into line 1 to 6 of hadBooks
  116. put hadBooks into menu bn
  117. repeat with x = 1 to the number of lines in hadBooks
  118. set cursor to "busy"
  119. set the menumsg of menuitem x of menu bn to line x of hadBooksMsg
  120. set the checkmark of menuitem x of menu bn to line x of hadBooksCheck
  121. set the enabled of menuitem x of menu bn to line x of hadBooksState
  122. set the commandchar of menuitem x of menu bn to line x of hadBooksChar
  123. end repeat
  124. end if
  125. end if
  126. set cursor to "busy"
  127. doCSTR "MenuSnapShotCSTR"
  128. US